home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos1.d64 / gfl 2 (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  100 lines
  1. 10 A=A+1:IFA=1THENLOAD"GDM.OBJ",8,1
  2. 15 B=B+1:IFB=1THENLOAD"GDM.CODES",8,1
  3. 16 REM NEU
  4. 20 BM=49664:FORT=0TO7:POKE49438+T,2^T:NEXT:POKE53269,0:POKE53280,0:POKE646,1
  5. 25 POKE53281,0:BUFF=BM+2:POKE53272,23
  6. 30 POKE657,128:PRINT"[147][199]EOS [198]ILE [204]INKER  VON [212]HORSTEN [208]ETROWSKI[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  7. 35 INPUT" [218]U LINKENDES [198]ILE";SF$:FF=0
  8. 36 CLOSE15:CLOSE2:OPEN15,8,15,"IO":OPEN2,8,2,"#"
  9. 40 IFIN$="$"THENSF$=CHR$(0)
  10. 45 GOSUB210:IFFF=0THEN35
  11. 50 PRINT"[198][201][204][197]-[197][201][206][212][210][193][199]:[146]":IFIT<>0THEN75
  12. 55 IT=1:IS=0
  13. 60 PRINT#15,"B-A 0";IT;IS:INPUT#15,REP,DUMMY$,IT,IS
  14. 61 IFREP=0THENIT=1:IS=0:GOTO75
  15. 62 IFIT =18THENIT=19:IS=0:GOTO60
  16. 65 IFREP=65ANDIT=0THENPRINT"-[206]ICHTS MEHR FREI !":END
  17. 75 POKERB+21,0:POKERB+19,IT:POKERB+20,IS:PRINT"    [199][197][207][211] [198]ILETYP :"
  18. 80 PRINT"0  [206]ICHT [199][197][207][211]",,,"1  [194]ASIC",,,,"2  [193]SSEMBLER",,,"4  [211]YSTEM-[196]ATEI",,,
  19. 85 PRINT"5  [196]ESK[164][193]CCESSORY",,,"6  [193]PPLIKATION",,,"8  [198]ONT-[198]ILE",,,
  20. 90 PRINT"9  [196]RUCKERTREIBER",,,"10 [197]INGABETREIBER"
  21. 95 AD=RB+22:PRINT" [201]HRE [215]AHL";:GOSUB180:GT=VAL(IN$)
  22. 100 AD=RB+23:OU$="[211]CHREIBJAHR":GOSUB205:OU$="     -MONAT":GOSUB205
  23. 105 OU$="       -TAG":GOSUB205:OU$="    -STUNDE":GOSUB205
  24. 110 OU$="    -MINUTE":GOSUB205
  25. 115 PRINT#15,"B-P 2 0":SYS49193:PRINT#15,"U2:2 0";AT;AS:PRINT"[201]NFOSCHIRM"
  26. 120 PRINT#15,"U1:2 0";IT;IS:SYS49152:POKEBM,0:POKEBM+1,255:POKEBM+2,3
  27. 125 POKEBM+3,21:POKEBM+4,191:POKEBM+69,GT:POKEBM+70,0
  28. 130 FORT=0TO62:POKE832+T,PEEK(BM+5+T):NEXT:POKEBM+68,129
  29. 135 GOSUB285:PRINT"[147][193]NFANGSADRESSE";:AD=BM+71:GOSUB185:GOSUB190
  30. 140 PRINT"  [197]NDADRESSE";:AD=BM+73:GOSUB185
  31. 145 PRINT"  [211]TARTADRESSE";:AD=BM+75:GOSUB185
  32. 150 PRINT"'[195][204][193][211][211]'";:AD=BM+77:L=20:GOSUB200
  33. 155 PRINT"'[193][213][212][207][210]'";:AD=BM+97:L=19:GOSUB200
  34. 160 PRINT" '[201][206][198][207]'";:AD=BM+160:L=94:GOSUB200
  35. 165 PRINT#15,"B-P 2 0":SYS49193:PRINT#15,"U2:2 0";IT;IS:PRINT"[198]ERTIG!"
  36. 170 CLOSE2:CLOSE15:GOTO445
  37. 175 PRINT" :";:OPEN3,0,0:INPUT#3,IN$:CLOSE3:PRINT
  38. 176 IF LEFT$(IN$,1)>"$"THEN RETURN
  39. 177 DEZ=0:FOR C=1TO4:ACT=(ASC(MID$(IN$,C+1,1))AND127)-48
  40. 178 IF ACT>12 THEN ACT=ACT-7
  41. 179 DEZ=DEZ+16^(4-C)*ACT:NEXT C:IN$=STR$(DEZ):PRINT"(";IN$;" )":RETURN
  42. 180 GOSUB175:POKEAD,VAL(IN$):RETURN
  43. 185 GOSUB175:MEM=VAL(IN$)
  44. 190 B1=INT(MEM/256):B0=((MEM/256)-INT(MEM/256))*256
  45. 195 POKEAD,B0:POKEAD+1,B1:RETURN
  46. 200 GOSUB175:WE$=LEFT$(IN$,L):GOTO425
  47. 205 PRINTOU$;:GOSUB200:POKEAD,VAL(IN$):AD=AD+1:RETURN
  48. 210 AT=18:AS=1:PRINT" [196]ISK-[211]EARCH ...":FF=0
  49. 215 PRINT#15,"B-P 2 0":PRINT#15,"U1:2 0";AT;AS:SYS49152:POKE53280,0:SB=0
  50. 220 RB=32*SB+BUFF:INPUT#15,ER,ER$,ET,ES
  51. 225 IFER<>0THENPRINT"[196]ISK-[197]RROR";ER;":";ER$;ET;ES:END
  52. 230 SYS 49259,(RB+3),16,NF$:PRINT NF$:LS=LEN(SF$):RI$=RIGHT$(SF$,1)
  53. 235 IFRI$<>"*"ANDMID$(NF$,LS+1,1)<>"."THEN265
  54. 240 IFRI$="*"ANDSF$=LEFT$(NF$,LS-1)+"*"THEN250
  55. 245 IFSF$<>LEFT$(NF$,LS)THEN265
  56. 250 CN=LEN(NF$)
  57. 255 IFMID$(NF$,CN,1)="."ANDCN>0THENCN=CN-1:GOTO255
  58. 260 SF$=LEFT$(NF$,CN):IT=PEEK(RB+19):IS=PEEK(RB+20):FF=1:RETURN
  59. 265 SB=SB+1:IFSB<8THEN220
  60. 270 AT=PEEK(BUFF-2):AS=PEEK(BUFF-1):IFAT=0THENRETURN
  61. 275 GOTO215
  62. 280 B1=INT(AD/256):B0=((AD/256)-INT(AD/256))*256:RETURN
  63. 285 PRINT"[147] [201]CON [197]DIT[146]":POKE49425,32:POKE49430,42
  64. 290 SY$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  65. 295 PRINT"  [176]"SY$"[174]"
  66. 300 AD=832:FORY=0TO20
  67. 305 PRINT"  [221]";:FORX=0TO2:SYS49407,PEEK(AD):AD=AD+1:NEXTX:PRINT"[221]":NEXTY
  68. 310 PRINT"  [173]"SY$"[189]"
  69. 315 PRINT""TAB(28);"^^^^^"
  70. 320 POKE53269,1:POKE2040,13:POKE53248,255:POKE53249,76:POKE53288,1
  71. 325 POKE53264,0:X=0:Y=0:OX=2022:OP=0:DD=1107
  72. 330 POKEOX,PEEK(OX)AND127:POKEDD,PEEK(DD)OR128
  73. 335 GET KEY$:IFKEY$=""THEN335
  74. 340 OX=DD:IFKEY$=""ANDX<23THENX=X+1
  75. 345 IFKEY$="[157]"ANDX>0 THENX=X-1
  76. 350 IFKEY$="[145]"ANDY>0 THENY=Y-1
  77. 355 IFKEY$=""ANDY<20THENY=Y+1
  78. 360 IFKEY$<>"Q"THEN370
  79. 365 FORT=0TO62:POKE49669+T,PEEK(832+T):NEXT:POKE53269,0:RETURN
  80. 370 IFKEY$<>"R"THEN390
  81. 375 POKE832,255:POKE833,255:POKE834,255:POKE893,255:POKE894,255
  82. 380 POKE892,255:FORT=835TO889STEP3
  83. 385 POKET,PEEK(T)OR128:POKET+2,PEEK(T+2)OR1:NEXT:GOTO295
  84. 390 IFKEY$="[147]"THENFORT=832TO895:POKET,0:NEXT:GOTO295
  85. 395 IFKEY$<>" "THEN415
  86. 400 IF(PEEK(BY)ANDBI)=BITHEN410
  87. 405 POKEBY,PEEK(BY)ORBI:POKEDD,170:GOTO415
  88. 410 POKEBY,PEEK(BY)AND(255-BI):POKEDD,160
  89. 415 DD=1107+Y*40+X:BY=832+(Y*3)+INT(X/8):BI=2^(7-(INT(((X/8)-INT(X/8))*8)))
  90. 420 GOTO330
  91. 425 WE$=WE$+CHR$(0):FORW=1TOLEN(WE$):WE=ASC(MID$(WE$,W,1))
  92. 430 IFWE>64ANDWE<91THENWE=WE+32:GOTO440
  93. 435 IFWE>192ANDWE<219THENWE=WE-128
  94. 440 POKEAD-1+W,WE:NEXTW:RETURN
  95. 445 PRINT" ([206])OCHMAL ODER ([197])NDE ?"
  96. 450 GET KEY$:IFKEY$=""THEN450
  97. 455 IFKEY$="N"ORKEY$="[206]"THENRUN20
  98. 460 IFKEY$="E"ORKEY$="[197]"THENEND
  99. 465 GOTO450
  100.